library(tidyverse)
library(readxl)
library(patchwork)
library(kableExtra)
library(knitr)
library(ranger)
library(vip)
library(rpart)
library(rpart.plot)
Pitch Horizontal Vertical Pitch Proportion Spin Rate
4-Seamer 7.45 14.86 0.46 2285.29
Changeup 14.03 32.27 0.26 1754.87
Curveball 9.45 53.35 0.26 2572.18
Cutter 2.88 25.97 0.34 2380.57
Sinker 15.00 22.89 0.39 2127.16
Slider 6.42 36.28 0.34 2432.44
Splitter 11.71 33.09 0.28 1459.77

Pitch Classifications for Stuff+
Class Stf+ Range
1 < 55
2 < 70
3 < 85
4 < 95
5 < 105
6 < 115
7 < 130
8 < 145
9 < 160
10 ≥ 160

## Ranger result
## 
## Call:
##  ranger(woba ~ ., data = tree_input, num.trees = 1000, importance = "impurity") 
## 
## Type:                             Regression 
## Number of trees:                  1000 
## Sample size:                      2074 
## Number of independent variables:  18 
## Mtry:                             4 
## Target node size:                 5 
## Variable importance mode:         impurity 
## Splitrule:                        variance 
## OOB prediction error (MSE):       0.002036583 
## R squared (OOB):                  0.5904996

Variable Importance

Sliders (Slider, Sweeper, Slurve

Fastballs (Four-Seam, Cutter, Sinker)

Curveballs

Change-Up (Change-Up / Splitter)

Decision Trees

Sliders (Slider, Sweeper, Slurve)

Fastballs (Four-Seam, Cutter, Sinker)

Curveballs

Change-Up (Change-Up / Splitter)